home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Revista CD Expert 31
/
CD Expert nº 31 Unreal Mission Pack I.iso
/
PetWings
/
petwings.exe
/
PetWings.exe
/
RCDATA
/
271
< prev
next >
Wrap
Text File
|
1999-08-04
|
1KB
|
144 lines
STOP 100
// Going down
STOP 115
// Ball comming...
DIRECTION 16
SPEED 8
MOVE 40
// Up-Down
// 24 steps
GOSUB 2
LABEL 1
// 384 * 2 steps
REPEAT 32
// Up-Down
// 24 steps
GOSUB 2
REPEAT_END
STOP 50
// Jumping up (10 steps)
GOSUB 3
// Attack (40 steps)
GOSUB 5
// Jumping down (10 steps)
GOSUB 4
STOP 20
// Jumping up (10 steps)
GOSUB 3
// Attack (40 steps)
GOSUB 5
// Jumping down (10 steps)
GOSUB 4
STOP 10
GOTO_LABEL 1
//-------- Up and Down movement
LABEL 2
SHIFT_Y 3
STOP 1
SHIFT_Y 2
STOP 1
SHIFT_Y 2
STOP 1
SHIFT_Y 1
STOP 1
SHIFT_Y 1
STOP 1
STOP 2
SHIFT_Y -1
STOP 1
SHIFT_Y -1
STOP 1
SHIFT_Y -2
STOP 1
SHIFT_Y -2
STOP 1
SHIFT_Y -3
STOP 1
SHIFT_Y -3
STOP 1
SHIFT_Y -2
STOP 1
SHIFT_Y -2
STOP 1
SHIFT_Y -1
STOP 1
SHIFT_Y -1
STOP 1
STOP 2
SHIFT_Y 1
STOP 1
SHIFT_Y 1
STOP 1
SHIFT_Y 2
STOP 1
SHIFT_Y 2
STOP 1
SHIFT_Y 3
STOP 1
RETURN
//-------- Jumping Up (10 steps)
LABEL 3
DIRECTION 8
SPEED 16
MOVE 2
SPEED_PERCENT 50
MOVE 2
SPEED_PERCENT 50
MOVE 2
SPEED_PERCENT 50
MOVE 2
STOP 2
RETURN
//-------- Jumping Down (10 steps)
LABEL 4
DIRECTION 24
SPEED 16
MOVE 2
SPEED_PERCENT 50
MOVE 2
SPEED_PERCENT 50
MOVE 2
SPEED_PERCENT 50
MOVE 2
STOP 2
RETURN
//---------- Attack (40 steps)
LABEL 5
PLAY_SOUND 6
DIRECTION_TO_MYCHARA
SPEED 26
MOVE 20
DIRECTION_REVERSE
SPEED 26
MOVE 20
RETURN